home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP404.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  5KB  |  184 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 404 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> C/Turbo Exchange (263-1151)"
  33.   Message " 2 --> AESC (381-1947)"
  34.   Message " 3 --> Atlanta PCUG (433-0062)"
  35.   Message " 4 --> Insight (455-4707)"
  36.   Message " 5 --> Georgia BBS (457-6815)"
  37.   Message " 6 --> The Right Place (476-2607)"
  38.   Message " 7 --> Pc World (565-7775)"
  39.   Message " 8 --> Nochange #1 (641-8270)"
  40.   Message " 9 --> Pc-Plus (762-0923)"
  41.   Message "10 --> Ultimate Solutions (949-3549)"
  42.   Message "11 --> AAPUG (969-0618)"
  43.   Message "12 --> Pc-Exchange (977-6686)"
  44.   Message "13 --> Invisible BBS (993-5310)"
  45.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  46.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  47.   Locate 22,0
  48.   Message "Your Choice -->"
  49.   Goto Retype1
  50. ;
  51. Retype1:
  52.   Locate 22,15
  53.   Get S3
  54.   Switch S3
  55.       Case "E"
  56.          EndSwitch
  57.          Execute "Make.cmd"
  58.       EndCase
  59.       Case "R"
  60.          EndSwitch
  61.          Goto Activate
  62.       EndCase
  63.       Case "S"
  64.          EndSwitch
  65.          Goto Switch
  66.       EndCase
  67.       Case "M"
  68.          Clear
  69.          Message "Manual dial for area "
  70.          Locate 0,21
  71.          Message S2
  72.          Message "What number do you wish to dial --> "
  73.          Locate 1,36
  74.          Get S6
  75.          Assign S5 "Manual dialing."
  76.          Execute "Dial"
  77.       EndCase
  78.       Case "D"
  79.          Execute "Discnect"
  80.       EndCase
  81.       Case "1"
  82.          Assign S5 "Dialing C/Turbo Exchange at 263-1151."
  83.          Assign S6 "2631151"
  84.          Execute "Dial"
  85.       EndCase
  86.       Case "2"
  87.          Assign S5 "Dialing AESC at 381-1947."
  88.          Assign S6 "3811947"
  89.          Execute "Dial"
  90.       EndCase
  91.       Case "3"
  92.          Assign S5 "Dialing Atlanta PCUG at 433-0062."
  93.          Assign S6 "4330062"
  94.          Execute "Dial"
  95.       EndCase
  96.       Case "4"
  97.          Assign S5 "Dialing Insight at 455-4707."
  98.          Assign S6 "4554707"
  99.          Execute "Dial"
  100.       EndCase
  101.       Case "5"
  102.          Assign S5 "Dialing Georgia BBS at 457-6815."
  103.          Assign S6 "4576815"
  104.          Execute "Dial"
  105.       EndCase
  106.       Case "6"
  107.          Assign S5 "Dialing The Right Place at 476-2607."
  108.          Assign S6 "4762607"
  109.          Execute "Dial"
  110.       EndCase
  111.       Case "7"
  112.          Assign S5 "Dialing Pc World at 565-7775."
  113.          Assign S6 "5657775"
  114.          Execute "Dial"
  115.       EndCase
  116.       Case "8"
  117.          Assign S5 "Dialing Nochange #1 at 641-8270."
  118.          Assign S6 "6418270"
  119.          Execute "Dial"
  120.       EndCase
  121.       Case "9"
  122.          Assign S5 "Dialing Pc-Plus at 762-0923."
  123.          Assign S6 "7620923"
  124.          Execute "Dial"
  125.       EndCase
  126.       Case "10"
  127.          Assign S5 "Dialing Ultimate Solutions at 949-3549."
  128.          Assign S6 "9493549"
  129.          Execute "Dial"
  130.       EndCase
  131.       Case "11"
  132.          Assign S5 "Dialing AAPUG at 969-0618."
  133.          Assign S6 "9690618"
  134.          Execute "Dial"
  135.       EndCase
  136.       Case "12"
  137.          Assign S5 "Dialing Pc-Exchange at 977-6686."
  138.          Assign S6 "9776686"
  139.          Execute "Dial"
  140.       EndCase
  141.       Case "13"
  142.          Assign S5 "Dialing Invisible BBS at 993-5310."
  143.          Assign S6 "9935310"
  144.          Execute "Dial"
  145.       EndCase
  146.       Default
  147.          Message " "
  148.          Message "Invalid choice, please retype"
  149.          Locate 22,15
  150.          Message "          "
  151.          Goto Retype1
  152.       EndCase
  153.   EndSwitch
  154. ;
  155. Switch:
  156.   Find S7 "R"
  157.   IF Found
  158.      Tran "I!"
  159.      Pause 2
  160.      Tran "ATZ!"
  161.      Assign S7 "H"
  162.      Rflush
  163.   ELSE
  164.      Tran "ATZ I!"
  165.      Pause 2
  166.      Tran "!"
  167.      Assign S7 "R"
  168.      Rflush
  169.   ENDIF
  170.   Pause 3
  171.   Rflush
  172.   Goto Page1
  173. ;
  174. Activate:
  175.   Find S8 "A"
  176.   IF Found
  177.      Assign S8 "I"
  178.   ELSE
  179.      Assign S8 "A"
  180.   ENDIF
  181.   Goto Page1
  182. ;
  183. Exit
  184.